object Furetimdurum: TFuretimdurum
  Tag = 47
  Left = 79
  Top = 104
  Width = 983
  Height = 591
  Caption = #220'retim Emri Durum Takibi'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object cxGrid1: TcxGrid
    Left = 0
    Top = 91
    Width = 975
    Height = 409
    Align = alClient
    TabOrder = 3
    LookAndFeel.NativeStyle = True
    object cxGrid1DBTableView1: TcxGridDBTableView
      OnDblClick = cxGrid1DBTableView1DblClick
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = UretimDurumQS
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'miktar'
          Column = cxGrid1DBTableView1miktar
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'depo'
          Column = cxGrid1DBTableView1depo
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'mdagitim'
          Column = cxGrid1DBTableView1mdagitim
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'montaj'
          Column = cxGrid1DBTableView1montaj
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'test'
          Column = cxGrid1DBTableView1test
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'sonkontrol'
          Column = cxGrid1DBTableView1sonkontrol
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'paket'
          Column = cxGrid1DBTableView1paket
        end
        item
          Format = '#,0'
          Kind = skSum
          FieldName = 'kalan'
          Column = cxGrid1DBTableView1kalan
        end>
      DataController.Summary.SummaryGroups = <>
      FilterRow.InfoText = ' '
      FilterRow.Visible = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupFooters = gfAlwaysVisible
      OptionsView.Indicator = True
      Styles.StyleSheet = dm.tvssDevExpress
      object cxGrid1DBTableView1Tarih: TcxGridDBColumn
        Caption = 'Tarih'
        DataBinding.FieldName = 'tarih'
        Width = 65
      end
      object cxGrid1DBTableView1emirno: TcxGridDBColumn
        Caption = 'Emir No'
        DataBinding.FieldName = 'emirno'
        Width = 50
      end
      object cxGrid1DBTableView1Model: TcxGridDBColumn
        Caption = 'Model'
        DataBinding.FieldName = 'ModelId'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'id'
        Properties.ListColumns = <
          item
            FieldName = 'isim'
          end>
        Properties.ListSource = dm.dsModel
        Width = 77
      end
      object cxGrid1DBTableView1AnaStokkodu: TcxGridDBColumn
        DataBinding.FieldName = 'AnaStokkodu'
        Width = 110
      end
      object cxGrid1DBTableView1stokkodu: TcxGridDBColumn
        Caption = 'Stok Kodu'
        DataBinding.FieldName = 'stokkodu'
        SortIndex = 0
        SortOrder = soAscending
        Width = 98
      end
      object cxGrid1DBTableView1cinsi: TcxGridDBColumn
        Caption = 'Cinsi'
        DataBinding.FieldName = 'cinsi'
        Width = 113
      end
      object cxGrid1DBTableView1CariGrup: TcxGridDBColumn
        Caption = 'Cari Grup'
        DataBinding.FieldName = 'CariGrup'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.ImmediateDropDown = False
        Properties.KeyFieldNames = 'id'
        Properties.ListColumns = <
          item
            FieldName = 'isim'
          end>
        Properties.ListSource = dsStokCari
      end
      object cxGrid1DBTableView1miktar: TcxGridDBColumn
        Caption = 'Miktar'
        DataBinding.FieldName = 'miktar'
        Width = 55
      end
      object cxGrid1DBTableView1depo: TcxGridDBColumn
        Caption = 'Depo'
        DataBinding.FieldName = 'depo'
        Width = 54
      end
      object cxGrid1DBTableView1mdagitim: TcxGridDBColumn
        Caption = 'M.Da'#287#305't'#305'm'
        DataBinding.FieldName = 'mdagitim'
        Width = 51
      end
      object cxGrid1DBTableView1montaj: TcxGridDBColumn
        Caption = 'Montaj'
        DataBinding.FieldName = 'montaj'
        Width = 55
      end
      object cxGrid1DBTableView1test: TcxGridDBColumn
        Caption = 'Test'
        DataBinding.FieldName = 'test'
        Width = 53
      end
      object cxGrid1DBTableView1sonkontrol: TcxGridDBColumn
        Caption = 'S.Kontrol'
        DataBinding.FieldName = 'sonkontrol'
        Width = 52
      end
      object cxGrid1DBTableView1paket: TcxGridDBColumn
        Caption = 'Paket'
        DataBinding.FieldName = 'paket'
        Width = 56
      end
      object cxGrid1DBTableView1Merkez: TcxGridDBColumn
        DataBinding.FieldName = 'Merkez'
      end
      object cxGrid1DBTableView1kalan: TcxGridDBColumn
        Caption = 'Kalan'
        DataBinding.FieldName = 'kalan'
        Width = 52
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 975
    Height = 91
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label7: TLabel
      Left = 8
      Top = 9
      Width = 45
      Height = 14
      Caption = 'Ba'#351'.Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 8
      Top = 33
      Width = 41
      Height = 14
      Caption = 'Bit. Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 219
      Top = 34
      Width = 34
      Height = 14
      Caption = 'Filitre 1'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label11: TLabel
      Left = 219
      Top = 10
      Width = 33
      Height = 16
      AutoSize = False
      Caption = 'Depo'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 694
      Top = 18
      Width = 39
      Height = 14
      Caption = 'EmirNo'
      Visible = False
    end
    object t2: TwwDBDateTimePicker
      Left = 67
      Top = 31
      Width = 121
      Height = 22
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ShowButton = True
      TabOrder = 1
      UnboundDataType = wwDTEdtDate
    end
    object t1: TwwDBDateTimePicker
      Left = 67
      Top = 7
      Width = 120
      Height = 22
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ShowButton = True
      TabOrder = 0
      UnboundDataType = wwDTEdtDate
    end
    object gostermek: TCheckBox
      Left = 6
      Top = 64
      Width = 193
      Height = 17
      Caption = '  '#304#351'lemi Bitenleri G'#246'sterme'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object depok: TwwDBLookupCombo
      Left = 267
      Top = 7
      Width = 172
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'DepoAdi'#9'20'#9'Depo Ad'#305#9'F'#9)
      LookupTable = AmbarUretimQ
      LookupField = 'id'
      Navigator = False
      ParentFont = False
      TabOrder = 2
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object lcTur: TwwDBLookupCombo
      Left = 267
      Top = 31
      Width = 172
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'Baslik'#9'20'#9'Baslik'#9'F')
      LookupTable = adoTur
      LookupField = 'Ref'
      Style = csDropDownList
      Color = clWhite
      Navigator = False
      ParentFont = False
      TabOrder = 3
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
      OnChange = bYenileClick
    end
    object Button1: TButton
      Left = 808
      Top = 51
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 5
      Visible = False
      OnClick = Button1Click
    end
    object Emirno: TEdit
      Left = 752
      Top = 13
      Width = 201
      Height = 22
      TabOrder = 6
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 500
    Width = 975
    Height = 45
    Align = alBottom
    BevelOuter = bvNone
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    DesignSize = (
      975
      45)
    object Label1: TLabel
      Left = 431
      Top = 29
      Width = 99
      Height = 14
      Caption = 'Top.Yap.Gereken :'
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 371
      Top = 7
      Width = 94
      Height = 14
      Caption = #214'n.Yap.Gereken :'
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object bYenile: TButton
      Left = 8
      Top = 12
      Width = 105
      Height = 24
      Caption = 'Yenile - F5'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = bYenileClick
    end
    object s1: TStaticText
      Left = 470
      Top = 4
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
    object s2: TStaticText
      Left = 537
      Top = 4
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 2
    end
    object s3: TStaticText
      Left = 605
      Top = 4
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 3
    end
    object s4: TStaticText
      Left = 672
      Top = 4
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 4
    end
    object s5: TStaticText
      Left = 740
      Top = 4
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 5
    end
    object s6: TStaticText
      Left = 807
      Top = 4
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 6
    end
    object bayrintigor: TBitBtn
      Left = 122
      Top = 12
      Width = 92
      Height = 25
      Caption = 'Ayr'#305'nt'#305
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = bayrintigorClick
    end
    object ts2: TStaticText
      Left = 537
      Top = 25
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 8
      Transparent = False
    end
    object ts3: TStaticText
      Left = 605
      Top = 25
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 9
      Transparent = False
    end
    object ts4: TStaticText
      Left = 672
      Top = 25
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 10
      Transparent = False
    end
    object ts5: TStaticText
      Left = 740
      Top = 25
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 11
      Transparent = False
    end
    object ts6: TStaticText
      Left = 807
      Top = 25
      Width = 64
      Height = 18
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 12
      Transparent = False
    end
    object bkapat: TBitBtn
      Left = 905
      Top = 11
      Width = 63
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      OnClick = bkapatClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 545
    Width = 975
    Height = 19
    Panels = <>
  end
  object UretimDurumQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'BasTar'
        DataType = ftString
        Size = 10
        Value = '01.01.2000'
      end
      item
        Name = 'BitTar'
        DataType = ftString
        Size = 10
        Value = '01.01.2000'
      end>
    SQL.Strings = (
      'select '
      
        '       Grup=(select grup from stok where stok.stokkodu=uremri.st' +
        'okkodu),tarih,emirno,stokkodu,cinsi,miktar,'
      '       depo=(case when durumu is null then 0 else miktar end),'
      
        '       mdagitim=(select count(makinano) from uretim where uretim' +
        '.uretimno=uremri.emirno), '
      
        '       montaj=(select count(makinano) from uretim where uretim.u' +
        'retimno=uremri.emirno and uretim.montajtarih is not null),'
      
        '       test=(select count(makinano) from uretim where uretim.ure' +
        'timno=uremri.emirno and testt is not null),'
      
        '       sonkontrol=(select count(makinano) from uretim where uret' +
        'im.uretimno=uremri.emirno and sontariht is not null),'
      
        '       paket=(select count(makinano) from uretim where uretim.ur' +
        'etimno=uremri.emirno and paktar is not null),'
      
        '       kalan=miktar-(select count(makinano) from uretim where ur' +
        'etim.uretimno=uremri.emirno and paktar is not null)'
      'from uremri '
      'where tarih>=:BasTar and tarih<=:BitTar '
      'order by tarih,emirno'
      '')
    Left = 120
    Top = 204
  end
  object UretimDurumQS: TDataSource
    DataSet = UretimDurumQ
    Left = 88
    Top = 204
  end
  object AmbarUretimQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from depolar'
      ' Where Aktif=1 and tipi=1'
      'order by id')
    Left = 160
    Top = 208
  end
  object adoTur: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TblSiparisTur order by sira')
    Left = 160
    Top = 257
  end
  object aqStokCari: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      'select * from stCariTanim'
      'order by isim')
    Left = 325
    Top = 227
  end
  object dsStokCari: TDataSource
    DataSet = aqStokCari
    Left = 334
    Top = 280
  end
  object sp_ihale: TADOStoredProc
    Tag = 1
    Connection = dm.connect
    CursorType = ctStatic
    ProcedureName = 'sp_ihalecdrom;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@EmirNo'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 588
    Top = 280
  end
end
